home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Communications / Network / MacHTTP 1.2.4 / map.script < prev    next >
Text File  |  1994-02-23  |  848b  |  19 lines
  1. set crlf to ASCII character 13 & ASCII character 10
  2. set http_10_header to "HTTP/1.0 200 OK" & crlf & "Server: MacHTTP" & crlf & ¬
  3.     "MIME-Version: 1.0" & crlf & "Content-type: text/html" & crlf & crlf
  4.  
  5. if http_search_args = "" then
  6.     return http_10_header & "<title>Map Test</title><isindex><A HREF=\"map.script\">" & ¬
  7.         "<IMG SRC=\"MacHTTP.gif\" ismap></A><P>Click on the tiny WWW document in the icon...<P>"
  8. else
  9.     set comma to offset of "," in http_search_args
  10.     set theLast to count http_search_args
  11.     set x to (text 1 thru (comma - 1) of http_search_args) + 0
  12.     set y to (text (comma + 1) thru theLast of http_search_args) + 0
  13. end if
  14. if x < 16 and y < 16 then
  15.     return http_10_header & "<title>Got Me</title> <h1>Got Me!</h1> x=" & x & " y=" & y
  16. else
  17.     return http_10_header & "<title>Missed Me</title> <h1>Missed Me!</h1> x=" & x & " y=" & y
  18. end if
  19.